home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual Foxpro 6.0 (Ent. Edition) / Vf6ent Extractor.EXE / TOOLS / INETWIZ / SERVER / START.PRG < prev    next >
Encoding:
Text File  |  1998-05-26  |  972 b   |  56 lines
  1. LOCAL llStart,lnSeconds
  2.  
  3. CD\server
  4. DEFINE BAR 13 OF _mwizards PROMPT "\<WWW Search Page Wizard"
  5. ON SELECTION BAR 13 OF _mwizards do c:\server\wwwpage.app
  6. ACTIVATE SCREEN
  7. CLEAR
  8. ERASE exit.nul
  9. llStart=.T.
  10. _screen.AddObject('tmrExitServerCheck','ExitServerCheck')
  11. DO WHILE .T.
  12.     IF CHRSAW() OR INKEY('HM')>0
  13.         EXIT
  14.     ENDIF
  15.     IF NOT EMPTY(SYS(2000,'server.app'))
  16.         llStart=.F.
  17.         ACTIVATE SCREEN
  18.         CLEAR
  19.         ERASE exit.nul
  20.         CLEAR PROGRAM
  21.         DO server.app
  22.         IF EMPTY(SYS(2000,'exit.nul'))
  23.             EXIT
  24.         ENDIF
  25.         ERASE exit.nul
  26.         ERASE server.app
  27.         lnSeconds=SECONDS()
  28.         DO WHILE ABS(SECONDS()-lnSeconds)<2
  29.         ENDDO
  30.         CLEAR
  31.         ? 'Press any key to exit to the Command window...'
  32.     ENDIF
  33. ENDDO
  34. _screen.RemoveObject('tmrExitServerCheck')
  35. ACTIVATE SCREEN
  36. CLEAR
  37. RETURN
  38.  
  39.  
  40.  
  41. DEFINE CLASS ExitServerCheck AS Timer
  42.  
  43.     Interval=1000
  44.     
  45.     FUNCTION Timer
  46.     IF NOT EMPTY(SYS(2000,'exit.nul'))
  47.         _screen.ActiveForm.Release()
  48.     ENDIF
  49.     ENDFUNC
  50.  
  51. ENDDEFINE
  52.  
  53.  
  54.  
  55.  
  56.